home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 117 - YY Proterm2.dsk / TO.ULTA.MACRO.1 / ULTRAMACROS / PATCH.MANIA.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  37 lines
  1. 100  ONERR  GOTO 320
  2. 110 D$ =  CHR$(4): PRINT D$"pr#3": HOME : PRINT 
  3. 120 ADR = 4096:A1 = ADR +1233:A2 = ADR +3564
  4. 130 SYS$ = "SYSTEM"
  5. 140  DIM N(9): FOR I = 0 TO 9: READ N(I): NEXT 
  6. 150  DATA  224,0,240,3,76,242,29,76,84,29
  7. 160  HOME : PRINT 
  8. 170  PRINT "Patch to allow Control-@ (ASCII 0) for"
  9. 175  PRINT "AppleWorks 2.0 printer/interface codes"
  10. 180  PRINT "--------------------------------------"
  11. 181  PRINT "Sample from the PatchMania disk"
  12. 182  PRINT "Copyright 1987 Randy Brandt": PRINT 
  13. 184  PRINT "PatchMania is available for $20 from": PRINT 
  14. 185  PRINT "JEM SOFTWARE"
  15. 190  PRINT "P.O. Box 20920"
  16. 191  PRINT "El Cajon, CA  92021": PRINT 
  17. 193  PRINT "Insert your AppleWorks STARTUP disk.": PRINT 
  18. 195  PRINT "Press Return to patch, or<CTRL-M>press Escape to quit: ";
  19. 200  GET A$: IF A$ =  CHR$(27)  THEN  PRINT : PRINT D$"prefix /ultramacros": PRINT D$"-startup"
  20. 210  IF A$ < > CHR$(13)  THEN 200
  21. 220  PRINT D$"bload aplworks."SYS$",a$1000,tsys"
  22. 230  FOR I = 0 TO 9: POKE A1 +I,N(I): NEXT 
  23. 240  POKE A2,76: POKE A2 +1,209: POKE A2 +2,20
  24. 250  POKE ADR +1190,30: POKE ADR +1220,11
  25. 270  PRINT D$"bsave aplworks."SYS$",a$1000,tsys"
  26. 280  PRINT : PRINT : PRINT "The 'WARNING. Desktop is full. Action not completed.' message has been": PRINT 
  27. 290  PRINT "changed to 'WARNING. Desktop is full.'": PRINT : PRINT "You may now enter control-@ for printer definitions.": PRINT 
  28. 300  PRINT "Press any key to continue ";: GET X$: PRINT 
  29. 310  PRINT D$"prefix /ultramacros": PRINT D$"-startup"
  30. 320 EL =  PEEK(218) +256 * PEEK(219)
  31. 330  IF EL = 220  AND SY$ = "SYSTEM"  THEN SYS$ = "SYS": GOTO 220
  32. 340  IF EL = 220  THEN SY$ = "SYSTEM": PRINT D$"prefix /appleworks": GOTO 220
  33. 350  IF EL = 340  THEN 999
  34. 440  POKE 216,0: RESUME 
  35. 999  PRINT "Unable to find AppleWorks STARTUP disk;"
  36. 1000  PRINT "Enter the pathname where AppleWorks is located"
  37. 1010  INPUT "";P$: PRINT D$"prefix"P$: GOTO 220